home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_A.d64 / . publication! . (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 1 rem" the publicationloader - completly lame
  2. 2 [143]"----------------------------------------
  3. 3 rem""(NULL)
  4. 4 f(1)=6:f(2)=2:f(3)=5:f(4)=7:f(5)=1:f(6)=15:poke657,128
  5. 5 ifa=0thena=1:gosub5000:ga=peek(186):gosub6000:load"charset.1*",ga,1
  6. 6 print"[147]":m=0:poke53265,27:poke53281,6:poke53280,0:poke788,52
  7. 7 fori=49152to49169:readx:pokei,x:next
  8. 8 data160,0,162,0,232,142,32,208,224,255,208,248,200,192,255,208,241,96
  9. 9 print"[147]":poke53272,24
  10. 10 printtab(10)"abcdefghijklmnopqrstu"
  11. 11 printtab(10)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]"
  12. 12 printtab(10)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]"
  13. 13 printtab(10)"!@#$%&'()*+,-./01234"
  14. 14 print"[158] yo ! diz is the high-tech-memberstatus"
  15. 15 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":sys49152:poke53280,0
  16. 16 a$="flare":py=9:gosub3000:a$="lead,code,swap":gosub4000
  17. 17 a$="jak t rip":py=10:gosub3000:a$="co-lead,cover,swap":gosub4000
  18. 18 a$="ghost":py=11:gosub3000:a$="grafix":gosub4000
  19. 19 a$="ra!":py=12:gosub3000:a$="grafix":gosub4000
  20. 20 a$="tsv":py=13:gosub3000:a$="code":gosub4000
  21. 21 a$="gunhed battailon":py=14:gosub3000:a$="code,musix":gosub4000
  22. 22 a$="ath":py=15:gosub3000:a$="grafix":gosub4000
  23. 23 a$="robin hood":py=16:gosub3000:a$="publication":gosub4000
  24. 24 a$="zeitgeist":py=17:gosub3000:a$="publication,code":gosub4000:sys49152
  25. 25 poke53280,0:a$=" watch out for all fuckin' lame stuff":py=19:gosub3000
  26. 26 a$="  of high-tech,exspeccially the next":py=20:gosub3000
  27. 27 a$="        issue of publication !":py=21:gosub3000:sys49152:poke53280,0
  28. 28 a$="  now press da long one down under !":g=1
  29. 29 poke646,f(g):poke211,1:poke214,23:sys58732:printa$
  30. 30 getx$:ifx$<>""then33
  31. 31 g=g+1:ifg=7theng=1
  32. 32 goto29
  33. 33 forg=7to23:ifg/2=int(g/2)then35
  34. 34 forq=0to38:poke211,q:poke214,g:sys58732:print" ":nextq,g:goto36
  35. 35 forq=38to0step-1:poke211,q:poke214,g:sys58732:print" ":nextq,g
  36. 36 poke211,1:poke214,6:sys58732:print"[158][164][175][185][162][185][175][164][175][185][162][185][175][164][175][185][162][185][175][164][175][185][162][185][175][164] [159]the issue #6
  37. 37 [153]"list tab(usrfreusrfreusrfreusrfreusrfreusrfretab(freusrfreusrfreusrfreusrfreusrtab(stop"
  38. 38 [158]57812("sprites*"),ga,1:[151]780,0:[158]65493:[151]53265,11
  39. 40 [153]"load"[170][199](34)[170]"publication/main"[170][199](34)[170]","[170][196](ga)
  40. 41 [153]"runonononononononononononononononon"
  41. 42 [151]198,0:[129]i[178]0[164]9:[151]631[170]i,13:[130]:[151]198,10
  42. 43 [144]
  43. 100 [137]100
  44. 3000 [129]g[178]1[164]6:[151]646,f(g):[151]211,1:[151]214,py:[158]58732:[153]a$:[129]q[178]1[164]100
  45. 3001 [130]q,g:[142]
  46. 4000 [151]646,3:[129]g[178]1[164][195](a$):[151]211,17[170]g:[151]214,py:[158]58732
  47. 4001 [153][202](a$,g,1):[129]q[178]1[164]30:[130]q,g:[142]
  48. 5000 [151]53280,2:[151]53281,3:[151]646,0:[153]"load"[199](14):ga[178][194](186):g[178]0
  49. 5001 [153]" atnctual str$evice :";ga:[153]"stop (NULL)ew str$evice    : ";
  50. 5002 [151]204,0:[151]56325,35:g[178]g[170]1:[151]646,f(g):[139]g[178]6[167]g[178]0
  51. 5003 [161]a$:[139]a$[178]""[167]5002
  52. 5004 x[178][197](a$):[139]x[179][177]8[175]x[179][177]9[167]5002
  53. 5005 [151]207,0:[151]204,1:[153]"cmd"x:[151]186,x:[129]g[178]1[164]200:[130]:[142]
  54. 6000 [159]1,ga,15:[160]1:[139]st[179]0[167]a$[178]"str$rive not (NULL)eady !!!":g[178]1:[137]6002
  55. 6001 [153]" stop(NULL)oading...             ":[142]
  56. 6002 [151]646,f(g):[151]211,1:[151]214,5:[158]58732:[153]a$
  57. 6003 [161]x$:[139]x$[178]""[167]6005
  58. 6004 [153]"ononon":[137]6000
  59. 6005 g[178]g[170]1:[139]g[178]7[167]g[178]1
  60. 6006 [137]6002
  61.